-- card: 37210 from stack: in.3r
-- bmap block id: 0
-- flags: 0000
-- background id: 3837
-- name: thePixel


-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=192 top=233 right=282 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Try me
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then edit script of me
  set cursor to 2
  repeat until the mouseclick
    put thePixel(the mouseh,the mousev)
  end repeat
end mouseUp



-- part contents for background part 5
----- text -----
thePixel

-- part contents for background part 6
----- text -----
thePixel is an XFCN which returns the value of one pixel on the screen.  The result is "black" if the pixel is on, and the result is "white" if the pixel is off.


Note that the card and background layers are not taken into account as the screen itself is checked.

Use it in good health, and keep an eye out for more goodies!

Steve Maller
26 January 1988
Apple Computer

AppleLink: MALLER
CompuServe: 70436,1745
Delphi: STEVEMALLER • MCI Mail: SMALLER



-- part contents for background part 7
----- text -----
Syntax:

thePixel(<h>,<v>)

h is the horizontal coordinate.
v is the vertical coordinate.

Result:   "black" or "white"


-- part contents for background part 10
----- text -----
41

-- part contents for background part 27
----- text -----
XFCN